From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 May 1994 00:18:35 +0000 (+0000)
Subject: (backquote-backquote-symbol): Don't autoload defvar.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91693
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c9c7f2c49d42544f250aca3821155d563a5d325d;p=emacs.git

(backquote-backquote-symbol): Don't autoload defvar.
(`): Write its name directly in the definition.  Use defalias.
---

diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index e61f24935ac..9e1c6c29203 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -78,12 +78,11 @@ For example (backquote-list* 'a 'b 'c) => (a b . c)"
 	newlist)
     first))
 
-(fset 'backquote-list* (symbol-function 'backquote-list*-macro))
+(defalias 'backquote-list* (symbol-function 'backquote-list*-macro))
 
 ;; A few advertised variables that control which symbols are used
 ;; to represent the backquote, unquote, and splice operations.
 
-;;;###autoload
 (defvar backquote-backquote-symbol '`
   "*Symbol used to represent a backquote or nested backquote (e.g. `).")
 
@@ -113,7 +112,7 @@ Vectors work just like lists.  Nested backquotes are permitted."
 ;; GNU Emacs has no reader macros
 
 ;;;###autoload
-(fset backquote-backquote-symbol (symbol-function 'backquote))
+(defalias '` (symbol-function 'backquote))
 
 ;; backquote-process returns a dotted-pair of a tag (0, 1, or 2) and
 ;; the backquote-processed structure.  0 => the structure is